home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Helm d1.adf / HD_Install < prev    next >
Text File  |  1993-08-23  |  18KB  |  554 lines
  1. ; $VER: HD_Install(Helm) 1.06 (22.8.93)
  2. ; Helm Hard Disk Intallation Script
  3. ; Version 1.06
  4. ; 22 August 1993
  5. ; Copyright 1993 by Eagle Tree Software
  6. ;
  7. ; Written for use with Commodore's Installer tool
  8. ;
  9. ; The HD_Install icon should include these tooltypes:
  10. ;   APPNAME=Helm
  11. ;   MINUSER=AVERAGE
  12.  
  13. (set rAnimals     0)
  14. (set rAnimButtons 1)
  15. (set rArtwork     2)
  16. (set rButtonBook1 3)
  17. (set rButtonBook2 4)
  18. (set rFormIdeas   5)
  19.  
  20. (set mBearBook    0)
  21. (set mCars        1)
  22. (set mChinese     2)
  23. (set mElements    3)
  24. (set mEarTrainer  4)
  25. (set mLatin       5)
  26. (set mPigLatin    6)
  27. (set mShips       7)
  28. (set mUserGroup   8)
  29. (set mWorldFlags  9)
  30.  
  31. (set uAtlas        0)
  32. (set uBabyPaint    1)
  33. (set uCalendar     2)
  34. (set uConvert      3)
  35. (set uCustomer     4)
  36. (set uDirBook      5)
  37. (set uHelmGlossary 6)
  38. (set uHelmPaint    7)
  39. (set uJukeBox      8)
  40. (set uNotes        9)
  41. (set uPhoneBook   10)
  42. (set uStoryBoard  11)
  43. (set uWelcome     12)
  44.  
  45. (set newbookshelf 1)
  46. (set installall 1)
  47.  
  48.  
  49. (set BOOKHELP
  50.  (cat
  51.    "Explanation of controls:\n"
  52.    "     Each of the checkboxes represents a book that you can choose "
  53.    "to install on your hard disk. A checkmark in a box represents a "
  54.    "currently selected book. You can change selected books by clicking "
  55.    "on the checkboxes. Once you are satisified with the selected books, "
  56.    "select \"Proceed\" to continue with the installation. Once you are finished "
  57.    "selecting books, you will be asked to confirm your selections. If you "
  58.    "wish, you can start over and make new selections. If you wish to abort "
  59.    "the installation for any reason select \"Abort\"."
  60.   )
  61. )
  62.  
  63. (procedure copybook
  64. ;  (debug "diskA is " diskA "fileA is " fileA)
  65.   (copyfiles (source (tackon diskA fileA))
  66.               (dest book_dest)
  67.               (infos))
  68.   (tooltype (dest (tackon book_dest fileA)) (noposition))
  69. )
  70.  
  71. (procedure addbook
  72.    (set bookcount (+ bookcount 1))
  73.    (set totalsize (+ totalsize (+ 458 booksize)))
  74. )
  75.  
  76. (complete 0)
  77.  
  78.  
  79. (set helm_dest
  80.     (askdir
  81.         (prompt "In which disk or drawer should Helm be installed?")
  82.         (help "The installation utility will create a drawer named "
  83.             "\"Helm\" in this directory.  All \"Helm\" "
  84.             "files will be placed inside that directory. "
  85.             "It will also create a \"Books\" drawer. This "
  86.                         "utility will copy books from other disks to "
  87.             "this drawer\n")
  88.         (default @default-dest)
  89.     )
  90. )
  91.  
  92.  
  93. (set helm_dest (tackon helm_dest "Helm"))
  94. (set @default-dest helm_dest)
  95.  
  96.  
  97. ( if (= 2 ((exists (helm_dest) (noreq))))
  98.   (set installall
  99.         (askbool
  100.         (prompt "Do you want to reinstall Helm and its data files "
  101.                         "or do you just want to add books to your hard "
  102.                         "disk. Books are the application files that are "
  103.                         "created by Helm. ")
  104.         (help @askchoice-help)
  105.         (choices "Yes, Install Helm"
  106.                          "No, Just Books")
  107.         (default 1)
  108.     )
  109.   )
  110.   (
  111.    (makedir helm_dest (infos))
  112.   )
  113. )
  114.  
  115. ; get the program disk
  116. (askdisk
  117.     (prompt "Please insert the disk labeled \"Helm\"" )
  118.     (help    "Helm will be copied "
  119.             "from the \"Helm\" Disk on to your system." )
  120.     (dest "Helm" )
  121. )
  122.  
  123.  
  124. (complete 5)
  125. ;----------------------------------------------------------------------
  126. ; Install Helm and data files
  127. ;----------------------------------------------------------------------
  128.  
  129. ;copy Helm over
  130. (if (= installall 1)
  131.  (
  132.   (copyfiles
  133.     (source "Helm:")
  134.     (dest helm_dest (infos))
  135.     (pattern "(Helm#?|Filters#?|Shapes#?)")
  136.   )
  137.   (if (exists (tackon helm_dest "Bookshelf") (noreq))
  138.     (set newbookshelf
  139.           (askbool
  140.               (prompt "Do you want to overwrite your Bookshelf "
  141.                           "with the default Bookshelf? If you have "
  142.                           "customized your Bookshelf by adding or "
  143.                           "deleting buttons, you may not want to replace "
  144.                           "it with a fresh copy.")
  145.                   (help @askchoice-help)
  146.                   (choices "Yes, Replace Bookshelf"
  147.                          "No, Keep My Bookshelf")
  148.            (default 0)
  149.       )
  150.     )
  151.   )
  152.   (if (= newbookshelf 1)
  153.     (
  154.      if (askbool
  155.           (prompt "The Bookshelf is a book that was created in Helm "
  156.                   "and is used as a quick way of opening other books "
  157.                   "that you either install or create. You have a choice "
  158.                   "of two versions of the Bookshelf that perform the same "
  159.                   "functions but have different display resolutions. The "
  160.                   "640 x 400 version is better looking but requires more "
  161.                   "memory because of the increased resolution.\n\n"
  162.                   "Do you want to install a 640 x 400 resolution Bookshelf "
  163.                   "or a 640 x 200 resolution Bookshelf?")
  164.           (help @askchoice-help)
  165.           (choices "640 x 400"
  166.                    "640 x 200")
  167.           (default 0)
  168.         )
  169.         (   ; 640 x 400 Bookshelf
  170.           copyfiles
  171.       (source "Helm:Bookshelf")
  172.       (dest helm_dest (infos))
  173.         )
  174.         (   ; else 640 x 200 Bookshelf
  175.           copyfiles
  176.       (source "Helm:Bookshelf2")
  177.       (dest helm_dest (infos))
  178.       (newname "Bookshelf")
  179.         )
  180.     )
  181.  
  182.   )
  183.   (copylib
  184.     (prompt "Copying the AmigaGuide library to your system.")
  185.     (help @copylib-help)
  186.     (source "Helm:libs/amigaguide.library")
  187.     (dest "libs:")
  188.     (confirm)
  189.   )
  190.  
  191.   (copylib
  192.     (prompt "Copying AmigaGuide's help to your system.")
  193.     (help @copylib-help)
  194.     (source "Helm:s/help.guide")
  195.     (dest "s:" (infos))
  196.     (confirm)
  197.   )
  198.  )
  199. )
  200.  
  201.  
  202.  
  203. (set book_dest (tackon helm_dest "Books"))
  204.  
  205. (makedir book_dest (infos))
  206.  
  207.  
  208. (complete 10)
  209. ;----------------------------------------------------------------------
  210. ; Choose Books
  211. ;----------------------------------------------------------------------
  212. (set accepted 0)
  213. (set resourcebooks 0)
  214. (set utilitybooks 0)
  215. (set miscbooks 0)
  216.  
  217. (until (= accepted 1)
  218.   (set bookcount 0)
  219.   (set totalsize 0)
  220.   (set resourcebooks
  221.         (askoptions
  222.               (prompt "Choose books of resources and art:")
  223.               (help BOOKHELP)
  224.               (choices
  225.                        "Animals          52314"
  226.                        "AnimButtons     276360"
  227.                        "Artwork         181528"
  228.                        "ButtonBook1     343996"
  229.                        "ButtonBook2     214628"
  230.                        "FormIdeas       153802"
  231.               )
  232.               (default resourcebooks)
  233.         )
  234.   )
  235.   (if (IN resourcebooks rAnimals)     ((set booksize  52314) (addbook)))
  236.   (if (IN resourcebooks rAnimButtons) ((set booksize 276360) (addbook)))
  237.   (if (IN resourcebooks rArtwork)     ((set booksize 181528) (addbook)))
  238.   (if (IN resourcebooks rButtonBook1) ((set booksize 343996) (addbook)))
  239.   (if (IN resourcebooks rButtonBook2) ((set booksize 214628) (addbook)))
  240.   (if (IN resourcebooks rFormIdeas)   ((set booksize 153802) (addbook)))
  241.  
  242.   (set utilitybooks
  243.         (askoptions
  244.               (prompt "Choose utility books:")
  245.               (help BOOKHELP)
  246.               (choices
  247.                        "Atlas           229958"
  248.                        "BabyPaint        31098"
  249.                        "Calendar         35284"
  250.                        "Convert          50784"
  251.                        "Customer         32988"
  252.                        "DirBook          35680"
  253.                        "HelmGlossary    101010"
  254.                        "HelmPaint        10450"
  255.                        "Jukebox          26520"
  256.                        "Notes            28858"
  257.                        "PhoneBook        29842"
  258.                        "StoryBoard       34336"
  259.                        "Welcome         228592"
  260.               )
  261.               (default utilitybooks)
  262.         )
  263.   )
  264.   (if (IN utilitybooks uAtlas)        ((set booksize 229958) (addbook)))
  265.   (if (IN utilitybooks uBabyPaint)    ((set booksize  31098) (addbook)))
  266.   (if (IN utilitybooks uCalendar)     ((set booksize  35284) (addbook)))
  267.   (if (IN utilitybooks uConvert)      ((set booksize  50784) (addbook)))
  268.   (if (IN utilitybooks uCustomer)     ((set booksize  32988) (addbook)))
  269.   (if (IN utilitybooks uDirBook)      ((set booksize  35680) (addbook)))
  270.   (if (IN utilitybooks uHelmGlossary) ((set booksize 101010) (addbook)))
  271.   (if (IN utilitybooks uHelmPaint)    ((set booksize  10450) (addbook)))
  272.   (if (IN utilitybooks uJukeBox)      ((set booksize  26520) (addbook)))
  273.   (if (IN utilitybooks uNotes)        ((set booksize  28858) (addbook)))
  274.   (if (IN utilitybooks uPhoneBook)    ((set booksize  29842) (addbook)))
  275.   (if (IN utilitybooks uStoryBoard)   ((set booksize  34336) (addbook)))
  276.   (if (IN utilitybooks uWelcome)      ((set booksize 228592) (addbook)))
  277.  
  278.   (set miscbooks
  279.         (askoptions
  280.               (prompt "Choose reference and miscellaneous books:")
  281.               (help BOOKHELP)
  282.               (choices
  283.                        "BearBook         54966"
  284.                        "Cars             69752"
  285.                        "Chinese         383294"
  286.                        "Elements        105214"
  287.                        "EarTrainer       35546"
  288.                        "Latin            33610"
  289.                        "PigLatin         15518"
  290.                        "Ships            91640"
  291.                        "UserGroup       141734"
  292.                        "WorldFlags      190924"
  293.               )
  294.               (default miscbooks)
  295.         )
  296.   )
  297.   (if (IN miscbooks mBearBook)   ((set booksize  54966) (addbook)))
  298.   (if (IN miscbooks mCars)       ((set booksize  69752) (addbook)))
  299.   (if (IN miscbooks mChinese)    ((set booksize 383294) (addbook)))
  300.   (if (IN miscbooks mElements)   ((set booksize 105214) (addbook)))
  301.   (if (IN miscbooks mEarTrainer) ((set booksize  35546) (addbook)))
  302.   (if (IN miscbooks mLatin)      ((set booksize  33610) (addbook)))
  303.   (if (IN miscbooks mPigLatin)   ((set booksize  15518) (addbook)))
  304.   (if (IN miscbooks mShips)      ((set booksize  91640) (addbook)))
  305.   (if (IN miscbooks mUserGroup)  ((set booksize 141734) (addbook)))
  306.   (if (IN miscbooks mWorldFlags) ((set booksize 190924) (addbook)))
  307.  
  308.   (set accepted
  309.         (askbool
  310.                 (prompt "Confirm Selections of Books"
  311.                         ("\n\nYou have selected %ld %s. "
  312.                         bookcount (if (= bookcount 1) ("book") ("books")))
  313.                         ("These choices require %ld bytes of space (including the size of the icons) on your hard disk." totalsize)
  314.                         ("\n\nDo you want to accept these choices?")
  315.                 "\n\nIf you accept your choices, any selected books "
  316.                         "will be installed on your hard disk. If you wish, "
  317.                         "you can start over and make new selections of books.")
  318.         (help @askchoice-help)
  319.         (choices "Yes, Accept Choices"
  320.                          "No, Start Over")
  321.         (default 0)
  322.     )
  323.   )
  324.  
  325. )
  326.  
  327.  
  328. (complete 20)
  329. ;--------------------------------------------------------------------
  330. ;    DISK 2
  331. ;--------------------------------------------------------------------
  332. (if (IN resourcebooks rAnimals rArtwork rButtonBook1 rButtonBook2)
  333.   (
  334.     (askdisk
  335.     (prompt "Please insert the disk labeled \"Helm_2\"" )
  336.     (help    "The books will be copied "
  337.             "from the \"Helm_2\" into your books drawer." )
  338.     (dest "Helm_2" )
  339.     )
  340.     (set diskA "Helm_2:")
  341.     (if (IN resourcebooks rAnimals)     ((set fileA "Animals")     (copybook)))
  342.     (if (IN resourcebooks rArtwork)     ((set fileA "Artwork")     (copybook)))
  343.     (if (IN resourcebooks rButtonBook1) ((set fileA "ButtonBook1") (copybook)))
  344.     (if (IN resourcebooks rButtonBook2) ((set fileA "ButtonBook2") (copybook)))
  345.   )
  346. )
  347.  
  348.  
  349. (complete 36)
  350. ;--------------------------------------------------------------------
  351. ;    DISK 3
  352. ;--------------------------------------------------------------------
  353. (if (OR     (IN resourcebooks
  354.                   rAnimButtons
  355.                   rFormIdeas
  356.             )
  357.         (OR (IN utilitybooks
  358.                   uDirBook
  359.             )
  360.             (IN miscbooks
  361.                  mBearBook
  362.                  mCars
  363.                  mEarTrainer
  364.                  mLatin
  365.                  mShips
  366.             )  ))
  367.   (
  368.     (askdisk
  369.     (prompt "Please insert the disk labeled \"Helm_3\"" )
  370.     (help    "The books will be copied "
  371.             "from the \"Helm_3\" into your books drawer." )
  372.     (dest "Helm_3" )
  373.     )
  374.     (set diskA "Helm_3:")
  375.     (if (IN resourcebooks rAnimButtons) ((set fileA "AnimButtons")     (copybook)))
  376.     (if (IN resourcebooks rFormIdeas)   ((set fileA "FormIdeas")       (copybook)))
  377.     (if (IN miscbooks rBearBook)        ((set fileA "BearBook")        (copybook)))
  378.     (if (IN miscbooks rCars)            ((set fileA "Cars")            (copybook)))
  379.     (if (IN miscbooks rEarTrainer)      ((set fileA "EarTrainer")      (copybook)))
  380.     (if (IN miscbooks rLatin)           ((set fileA "Latin")           (copybook)))
  381.     (if (IN miscbooks rShips)           ((set fileA "Ships")           (copybook)))
  382.     (if (IN utilitybooks uDirBook)      ((set fileA "DirBook")         (copybook)))
  383.   )
  384. )
  385.  
  386.  
  387. (complete 52)
  388. ;--------------------------------------------------------------------
  389. ;    DISK 4
  390. ;--------------------------------------------------------------------
  391. (if (OR (IN miscbooks
  392.               mPigLatin
  393.               mUserGroup
  394.         )
  395.         (IN utilitybooks
  396.               uAtlas
  397.               uBabyPaint
  398.               uCalendar
  399.               uConvert
  400.               uCustomer
  401.               uHelmGlossary
  402.               uHelmPaint
  403.               uNotes
  404.               uPhoneBook
  405.               uStoryBoard
  406.         ))
  407.   (
  408.     (askdisk
  409.     (prompt "Please insert the disk labeled \"Helm_4\"" )
  410.     (help    "The books will be copied "
  411.             "from the \"Helm_4\" into your books drawer." )
  412.     (dest "Helm_4" )
  413.     )
  414.     (set diskA "Helm_4:")
  415.  
  416.     (if (IN miscbooks rPigLatin)        ((set fileA "PigLatin")     (copybook)))
  417.     (if (IN miscbooks rUserGroup)       ((set fileA "UserGroup")    (copybook)))
  418.     (if (IN utilitybooks uAtlas)        ((set fileA "Atlas")        (copybook)))
  419.     (if (IN utilitybooks uBabyPaint)    ((set fileA "BabyPaint")    (copybook)))
  420.     (if (IN utilitybooks uCalendar)     ((set fileA "Calendar")     (copybook)))
  421.     (if (IN utilitybooks uConvert)      ((set fileA "Convert")      (copybook)))
  422.     (if (IN utilitybooks uCustomer)     ((set fileA "Customer")     (copybook)))
  423.     (if (IN utilitybooks uHelmGlossary) ((set fileA "HelmGlossary") (copybook)))
  424.     (if (IN utilitybooks uHelmPaint)    ((set fileA "HelmPaint")    (copybook)))
  425.     (if (IN utilitybooks uNotes)        ((set fileA "Notes")        (copybook)))
  426.     (if (IN utilitybooks uPhoneBook)    ((set fileA "Phonebook")    (copybook)))
  427.     (if (IN utilitybooks uStoryBoard)   ((set fileA "Storyboard")   (copybook)))
  428.  
  429.   )
  430. )
  431.  
  432.  
  433. (complete 68)
  434. ;--------------------------------------------------------------------
  435. ;    DISK 5
  436. ;--------------------------------------------------------------------
  437. (if (OR (IN utilitybooks
  438.               uJukeBox
  439.               uWelcome
  440.         )
  441.         (IN miscbooks
  442.               mChinese
  443.               mElements
  444.         ))
  445.   (
  446.     (askdisk
  447.     (prompt "Please insert the disk labeled \"Helm_5\"" )
  448.     (help    "The books will be copied "
  449.             "from the \"Helm_5\" into your books drawer." )
  450.     (dest "Helm_5" )
  451.     )
  452.     (set diskA "Helm_5:")
  453.     (if (IN miscbooks mChinese)     ((set fileA "Chinese")        (copybook)))
  454.     (if (IN miscbooks mElements)    ((set fileA "Elements")       (copybook)))
  455.     (if (IN utilitybooks uWelcome)  ((set fileA "Welcome")        (copybook)))
  456.     (if (IN utilitybooks uJukeBox)
  457.       (
  458.         (set fileA "JukeBox") (copybook)
  459.         (copyfiles
  460.             (source "Helm_5:")
  461.             (dest helm_dest (infos))
  462.             (pattern "SMUS#?"))
  463.       )
  464.     )
  465.   )
  466. )
  467.  
  468.  
  469. (complete 79)
  470. ;--------------------------------------------------------------------
  471. ;    DISK 6
  472. ;--------------------------------------------------------------------
  473. (if (in miscbooks mWorldFlags)
  474.   (
  475.     (askdisk
  476.     (prompt "Please insert the disk labeled \"Helm_6\"" )
  477.     (help    "The books will be copied "
  478.             "from the \"Helm_6\" into your books drawer." )
  479.     (dest "Helm_6" )
  480.     )
  481.     (set diskA "Helm_6:")
  482.     (if (IN miscbooks mWorldFlags) ((set fileA "WorldFlags") (copybook)))
  483.  
  484.   )
  485. )
  486.  
  487. ;----------------------------------------------------------------------
  488. ; Install Help files over
  489. ;----------------------------------------------------------------------
  490.  
  491. (complete 95)
  492. ;copy Helm over
  493. (if (= installall 1)
  494.  (
  495.   (askdisk
  496.     (prompt "Please insert the disk labeled \"Helm_6\"" )
  497.     (help    "The books will be copied "
  498.             "from the \"Helm_6\" into your books drawer." )
  499.     (dest "Helm_6" )
  500.    )
  501.   (copyfiles
  502.     (source "Helm_6:")
  503.     (dest helm_dest (infos))
  504.     (pattern "Help#?")
  505.  
  506.   )
  507.   (if (askbool
  508.           (prompt "The HelmBrowser is a freely distributable program "
  509.                   "that you can distribute with your programs without "
  510.                   "limitation or extra cost. It is capable of running "
  511.                   "the books you create with the full version of Helm. "
  512.                   "You do not need to install the HelmBrowser unless "
  513.                   "you want to test your book with it before "
  514.                   "distribution.\n\n"
  515.                   "Do you want to install the HelmBrowser?")
  516.           (help @askchoice-help)
  517.           (choices "Yes, Install"
  518.                    "No, Don't Install")
  519.           (default 0)
  520.         )
  521.         (   ; Copy Browser
  522.           (copyfiles
  523.       (source "Helm_6:HelmBrowser")
  524.       (dest helm_dest (infos)))
  525.           (tooltype (dest (tackon helm_dest "HelmBrowser")) (noposition))
  526.         )
  527.    )
  528. ;----------------------------------------------------------------------
  529. ; Add assignment to startup-sequence
  530. ;----------------------------------------------------------------------
  531.   (startup "Helm"
  532.     (prompt
  533.      "Adding Helm assignment to \"S:user-startup\" so that your system will be properly configured to use Helm.")
  534.     (help @startup-help)
  535.     (command (cat "assign Helm: " helm_dest))
  536.   )
  537.  )
  538. )
  539.  
  540.  
  541. (complete 100)
  542.  
  543. (exit
  544.       "You can use this same installation utility to install any books "
  545.       "that you did not install at this time. If you run this utility "
  546.       "again and it finds that you have "
  547.       "installed Helm already, it will ask you if want to reinstall Helm "
  548.       "or do you just want to skip to the book installation section.\n"
  549.       "Don't forget to register Helm to become available for upgrades "
  550.       "and technical support. ")
  551.  
  552.  
  553. (exit)
  554.